\begin{Schunk}
\begin{Sinput}
> library(Rgraphviz)
> g <- graph.proto()
> plot(g)
\end{Sinput}
\end{Schunk}
